home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / src / stefanb_src.lha / TeXDME2 / rexx / GoTeXError.dme < prev    next >
Encoding:
Text File  |  1992-09-06  |  274 b   |  13 lines
  1. /* GoTeXError.dme: V2.00 18.12.1989 SB */
  2. IF SHOWLIST('Ports','AmigaTeX')=0 THEN RETURN 10
  3. ADDRESS 'AmigaTeX' 'ErrorLoc'
  4. eloc=GETCLIP('AmigaTeX.ErrorLoc')
  5. IF eloc='' THEN RETURN 0
  6. PARSE VAR eloc filename linenum charpos .
  7. goto linenum
  8. first
  9. DO charpos-1
  10.  right
  11. END
  12. RETURN 0
  13.